#!/usr/bin/perl
sub conclusion_op_chain{
	my(@output_line) = @_;
	$flag_s_or_fail = 0;
	$flag_cmd_not_found = 0;
	foreach $loc_variable (@output_line){
		if ($loc_variable =~/permitted/){
			$flag_s_or_fail = 1; 
		}
		else{
			$flag_s_or_fail = 2;
		}
	}
	foreach $loc_variable (@output_line){
		if ($loc_variable =~/command/){
			$flag_cmd_not_found = 2;
		}
		else{
			$flag_cmd_not_found = 1;
		}
	}
	return($flag_s_or_fail,$flag_cmd_not_found);
}
1;
